<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%option explicit%>
<%
Dim RZ_IN
RZ_IN=1
%>
<!--#include file="../conn.inc.asp" -->
<!--#include file="admin_inc/admin.function.asp" -->
<!--#include file="admin_inc/admin.sqlfunction.asp" -->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>广告预览</title>
<link type="text/css" href="style/style.css" rel="stylesheet" rev="stylesheet"/>
</head>
<body>
<%
checkadmin(1)
dim id,ad_code
id=GetIntQueryString("id")
if id>0 then
	dim rsa,sqla
	set rsa = server.createobject("adodb.recordset")
	sqla = "select * from [c_advertise] where id="&id
	rsa.open sqla,conn,1,1
	if rsa.eof or rsa.bof then 
	response.redirect("showmsg.asp?from=advertise_list.asp&msg=norecord")
	else
	ad_code=rsa("ad_code")
	end if 
	rsa.close
	set rsa=nothing 
end If
%> 
<div><%=ad_code%></div>
</body>
</html>